home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / listing 7-3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  34 lines
  1. 0 rem ***  drumsounds
  2. 1 :
  3. 2 :t(1) =10   :rem tonhoehe 1
  4. 3 :t(2) =60   :rem tonhoehe 2
  5. 4 :t(3) =12   :rem tonhoehe 3
  6. 5 :t(4) =7    :rem tonhoehe 4
  7. 6 :t(5) =5    :rem tonhoehe 5
  8. 7 :t(6) =3    :rem tonhoehe 6
  9. 8 :t(7) =2    :rem tonhoehe 7
  10. 9 :t(8) =1    :rem tonhoehe 8
  11. 10 :
  12. 11 :w(1) =17   :rem wellenform 1
  13. 12 :w(2) =129  :rem wellenform 2
  14. 13 :w(3) =65   :rem wellenform 3
  15. 14 :w(4) =64   :rem wellenform 4
  16. 15 :w(5) =64   :rem wellenform 5
  17. 16 :w(6) =64   :rem wellenform 6
  18. 17 :w(7) =64   :rem wellenform 7
  19. 18 :w(8) =64   :rem wellenform 8
  20. 19 :
  21. 20 rem * ton einschalten
  22. 21 :
  23. 22 s=54272:pokes+4,8:pokes+24,15 :rem  vole lautstaerke setzen
  24. 23 pokes+6,247:pokes+5,0:pokes+3,8 :rem adsr und tastverhaeltnis poken
  25. 29 :
  26. 40 rem * drum !
  27. 51 :
  28. 52 fori=1to8 :rem  schleifenanfang
  29. 53 pokes+4,w(i) :rem  wellenform nr. i in sid schreiben
  30. 54 pokes+1,t(i) :rem  tonhoehe nr. i in sid schreiben
  31. 55 forj=0to4:next :rem  kurz warten...
  32. 56 next           :rem  ...und naechsten ton poken, bis alle acht fertig
  33. 60 fori=1to300:next:goto52: rem laenger warten und zum anfang
  34.